home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VCM / VCM.MDB / VcmComponentContainer / 04_Cabinet / deNwind.dsr next >
Encoding:
Visual Basic Active Designer file  |  1998-05-18  |  15.4 KB  |  472 lines

  1. VERSION 5.00
  2. Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} deNwind 
  3.    ClientHeight    =   5070
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   5160
  7.    _ExtentX        =   9102
  8.    _ExtentY        =   8943
  9.    FolderFlags     =   7
  10.    TypeLibGuid     =   "{BC4468AF-763D-11D1-AB28-00A0C9054348}"
  11.    TypeInfoGuid    =   "{BC4468B0-763D-11D1-AB28-00A0C9054348}"
  12.    TypeInfoCookie  =   0
  13.    Version         =   4
  14.    NumConnections  =   1
  15.    BeginProperty Connection1 
  16.       ConnectionName  =   "Nwind"
  17.       ConnDispId      =   1001
  18.       SourceOfData    =   3
  19.       ConnectionSource=   "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Program Files\Microsoft Visual Studio\vb98\Nwind.mdb"
  20.       Expanded        =   -1  'True
  21.       QuoteChar       =   96
  22.       SeparatorChar   =   46
  23.    EndProperty
  24.    NumRecordsets   =   4
  25.    BeginProperty Recordset1 
  26.       CommandName     =   "Customers"
  27.       CommDispId      =   1002
  28.       RsDispId        =   1003
  29.       CommandText     =   "Customers"
  30.       ActiveConnectionName=   "Nwind"
  31.       CommandType     =   2
  32.       dbObjectType    =   1
  33.       Grouping        =   -1  'True
  34.       GroupingName    =   "Customers_Grouping"
  35.       Expanded        =   -1  'True
  36.       SummaryExpanded =   -1  'True
  37.       DetailExpanded  =   -1  'True
  38.       IsRSReturning   =   -1  'True
  39.       NumFields       =   11
  40.       BeginProperty Field1 
  41.          Precision       =   255
  42.          Size            =   5
  43.          Scale           =   255
  44.          Type            =   200
  45.          Name            =   "CustomerID"
  46.          Caption         =   "CustomerID"
  47.       EndProperty
  48.       BeginProperty Field2 
  49.          Precision       =   255
  50.          Size            =   40
  51.          Scale           =   255
  52.          Type            =   200
  53.          Name            =   "CompanyName"
  54.          Caption         =   "CompanyName"
  55.       EndProperty
  56.       BeginProperty Field3 
  57.          Precision       =   255
  58.          Size            =   30
  59.          Scale           =   255
  60.          Type            =   200
  61.          Name            =   "ContactName"
  62.          Caption         =   "ContactName"
  63.       EndProperty
  64.       BeginProperty Field4 
  65.          Precision       =   255
  66.          Size            =   30
  67.          Scale           =   255
  68.          Type            =   200
  69.          Name            =   "ContactTitle"
  70.          Caption         =   "ContactTitle"
  71.       EndProperty
  72.       BeginProperty Field5 
  73.          Precision       =   255
  74.          Size            =   60
  75.          Scale           =   255
  76.          Type            =   200
  77.          Name            =   "Address"
  78.          Caption         =   "Address"
  79.       EndProperty
  80.       BeginProperty Field6 
  81.          Precision       =   255
  82.          Size            =   15
  83.          Scale           =   255
  84.          Type            =   200
  85.          Name            =   "City"
  86.          Caption         =   "City"
  87.       EndProperty
  88.       BeginProperty Field7 
  89.          Precision       =   255
  90.          Size            =   15
  91.          Scale           =   255
  92.          Type            =   200
  93.          Name            =   "Region"
  94.          Caption         =   "Region"
  95.       EndProperty
  96.       BeginProperty Field8 
  97.          Precision       =   255
  98.          Size            =   10
  99.          Scale           =   255
  100.          Type            =   200
  101.          Name            =   "PostalCode"
  102.          Caption         =   "PostalCode"
  103.       EndProperty
  104.       BeginProperty Field9 
  105.          Precision       =   255
  106.          Size            =   15
  107.          Scale           =   255
  108.          Type            =   200
  109.          Name            =   "Country"
  110.          Caption         =   "Country"
  111.       EndProperty
  112.       BeginProperty Field10 
  113.          Precision       =   255
  114.          Size            =   24
  115.          Scale           =   255
  116.          Type            =   200
  117.          Name            =   "Phone"
  118.          Caption         =   "Phone"
  119.       EndProperty
  120.       BeginProperty Field11 
  121.          Precision       =   255
  122.          Size            =   24
  123.          Scale           =   255
  124.          Type            =   200
  125.          Name            =   "Fax"
  126.          Caption         =   "Fax"
  127.       EndProperty
  128.       GroupingName    =   "Customers_Grouping"
  129.       NumGroups       =   1
  130.       BeginProperty Grouping1 
  131.          Precision       =   255
  132.          Size            =   15
  133.          Scale           =   255
  134.          Type            =   200
  135.          Name            =   "Country"
  136.          Caption         =   "Country"
  137.       EndProperty
  138.       ParamCount      =   0
  139.       CommandParent   =   ""
  140.       RelationCount   =   0
  141.       AggregateCount  =   0
  142.    EndProperty
  143.    BeginProperty Recordset2 
  144.       CommandName     =   "Orders"
  145.       CommDispId      =   -1
  146.       RsDispId        =   -1
  147.       CommandText     =   "Orders"
  148.       ActiveConnectionName=   "Nwind"
  149.       CommandType     =   2
  150.       dbObjectType    =   1
  151.       RelateToParent  =   -1  'True
  152.       ParentCommandName=   "Customers"
  153.       Expanded        =   -1  'True
  154.       IsRSReturning   =   -1  'True
  155.       NumFields       =   14
  156.       BeginProperty Field1 
  157.          Precision       =   10
  158.          Size            =   4
  159.          Scale           =   255
  160.          Type            =   3
  161.          Name            =   "OrderID"
  162.          Caption         =   "OrderID"
  163.       EndProperty
  164.       BeginProperty Field2 
  165.          Precision       =   255
  166.          Size            =   5
  167.          Scale           =   255
  168.          Type            =   200
  169.          Name            =   "CustomerID"
  170.          Caption         =   "CustomerID"
  171.       EndProperty
  172.       BeginProperty Field3 
  173.          Precision       =   10
  174.          Size            =   4
  175.          Scale           =   255
  176.          Type            =   3
  177.          Name            =   "EmployeeID"
  178.          Caption         =   "EmployeeID"
  179.       EndProperty
  180.       BeginProperty Field4 
  181.          Precision       =   255
  182.          Size            =   8
  183.          Scale           =   255
  184.          Type            =   7
  185.          Name            =   "OrderDate"
  186.          Caption         =   "OrderDate"
  187.       EndProperty
  188.       BeginProperty Field5 
  189.          Precision       =   255
  190.          Size            =   8
  191.          Scale           =   255
  192.          Type            =   7
  193.          Name            =   "RequiredDate"
  194.          Caption         =   "RequiredDate"
  195.       EndProperty
  196.       BeginProperty Field6 
  197.          Precision       =   255
  198.          Size            =   8
  199.          Scale           =   255
  200.          Type            =   7
  201.          Name            =   "ShippedDate"
  202.          Caption         =   "ShippedDate"
  203.       EndProperty
  204.       BeginProperty Field7 
  205.          Precision       =   10
  206.          Size            =   4
  207.          Scale           =   255
  208.          Type            =   3
  209.          Name            =   "ShipVia"
  210.          Caption         =   "ShipVia"
  211.       EndProperty
  212.       BeginProperty Field8 
  213.          Precision       =   19
  214.          Size            =   8
  215.          Scale           =   255
  216.          Type            =   6
  217.          Name            =   "Freight"
  218.          Caption         =   "Freight"
  219.       EndProperty
  220.       BeginProperty Field9 
  221.          Precision       =   255
  222.          Size            =   40
  223.          Scale           =   255
  224.          Type            =   200
  225.          Name            =   "ShipName"
  226.          Caption         =   "ShipName"
  227.       EndProperty
  228.       BeginProperty Field10 
  229.          Precision       =   255
  230.          Size            =   60
  231.          Scale           =   255
  232.          Type            =   200
  233.          Name            =   "ShipAddress"
  234.          Caption         =   "ShipAddress"
  235.       EndProperty
  236.       BeginProperty Field11 
  237.          Precision       =   255
  238.          Size            =   15
  239.          Scale           =   255
  240.          Type            =   200
  241.          Name            =   "ShipCity"
  242.          Caption         =   "ShipCity"
  243.       EndProperty
  244.       BeginProperty Field12 
  245.          Precision       =   255
  246.          Size            =   15
  247.          Scale           =   255
  248.          Type            =   200
  249.          Name            =   "ShipRegion"
  250.          Caption         =   "ShipRegion"
  251.       EndProperty
  252.       BeginProperty Field13 
  253.          Precision       =   255
  254.          Size            =   10
  255.          Scale           =   255
  256.          Type            =   200
  257.          Name            =   "ShipPostalCode"
  258.          Caption         =   "ShipPostalCode"
  259.       EndProperty
  260.       BeginProperty Field14 
  261.          Precision       =   255
  262.          Size            =   15
  263.          Scale           =   255
  264.          Type            =   200
  265.          Name            =   "ShipCountry"
  266.          Caption         =   "ShipCountry"
  267.       EndProperty
  268.       NumGroups       =   0
  269.       ParamCount      =   0
  270.       CommandParent   =   "Customers"
  271.       RelationCount   =   1
  272.       BeginProperty Relation1 
  273.          ParentField     =   "CustomerID"
  274.          ChildField      =   "CustomerID"
  275.          ParentType      =   0
  276.          ChildType       =   0
  277.       EndProperty
  278.       AggregateCount  =   1
  279.       BeginProperty Aggregate1 
  280.          Name            =   "ProductCount"
  281.          AggOn           =   "OrderDetails"
  282.          AggField        =   "ProductID"
  283.          AggType         =   1
  284.          AggFunction     =   3
  285.          Precision       =   8
  286.          Size            =   4
  287.          Scale           =   8
  288.          Type            =   3
  289.          Name            =   "ProductCount"
  290.          Caption         =   "ProductCount"
  291.          Control         =   "TextBox"
  292.          ControlGuid     =   "{0CA5C786-7C71-11D0-B223-00A0C908FB55}"
  293.       EndProperty
  294.    EndProperty
  295.    BeginProperty Recordset3 
  296.       CommandName     =   "OrderDetails"
  297.       CommDispId      =   -1
  298.       RsDispId        =   -1
  299.       CommandText     =   "Select OrderID, ProductID, UnitPrice, Quantity, (Quantity * UnitPrice) As Total From [Order Details]"
  300.       ActiveConnectionName=   "Nwind"
  301.       CommandType     =   1
  302.       RelateToParent  =   -1  'True
  303.       ParentCommandName=   "Orders"
  304.       Expanded        =   -1  'True
  305.       IsRSReturning   =   -1  'True
  306.       NumFields       =   5
  307.       BeginProperty Field1 
  308.          Precision       =   10
  309.          Size            =   4
  310.          Scale           =   255
  311.          Type            =   3
  312.          Name            =   "OrderID"
  313.          Caption         =   "OrderID"
  314.       EndProperty
  315.       BeginProperty Field2 
  316.          Precision       =   10
  317.          Size            =   4
  318.          Scale           =   255
  319.          Type            =   3
  320.          Name            =   "ProductID"
  321.          Caption         =   "ProductID"
  322.       EndProperty
  323.       BeginProperty Field3 
  324.          Precision       =   19
  325.          Size            =   8
  326.          Scale           =   255
  327.          Type            =   6
  328.          Name            =   "UnitPrice"
  329.          Caption         =   "UnitPrice"
  330.       EndProperty
  331.       BeginProperty Field4 
  332.          Precision       =   5
  333.          Size            =   2
  334.          Scale           =   255
  335.          Type            =   2
  336.          Name            =   "Quantity"
  337.          Caption         =   "Quantity"
  338.       EndProperty
  339.       BeginProperty Field5 
  340.          Precision       =   19
  341.          Size            =   8
  342.          Scale           =   255
  343.          Type            =   6
  344.          Name            =   "Total"
  345.          Caption         =   "Total"
  346.       EndProperty
  347.       NumGroups       =   0
  348.       ParamCount      =   0
  349.       CommandParent   =   "Orders"
  350.       RelationCount   =   1
  351.       BeginProperty Relation1 
  352.          ParentField     =   "OrderID"
  353.          ChildField      =   "OrderID"
  354.          ParentType      =   0
  355.          ChildType       =   0
  356.       EndProperty
  357.       AggregateCount  =   0
  358.    EndProperty
  359.    BeginProperty Recordset4 
  360.       CommandName     =   "Products"
  361.       CommDispId      =   -1
  362.       RsDispId        =   -1
  363.       CommandText     =   "Products"
  364.       ActiveConnectionName=   "Nwind"
  365.       CommandType     =   2
  366.       dbObjectType    =   1
  367.       RelateToParent  =   -1  'True
  368.       ParentCommandName=   "OrderDetails"
  369.       Expanded        =   -1  'True
  370.       IsRSReturning   =   -1  'True
  371.       NumFields       =   10
  372.       BeginProperty Field1 
  373.          Precision       =   10
  374.          Size            =   4
  375.          Scale           =   255
  376.          Type            =   3
  377.          Name            =   "ProductID"
  378.          Caption         =   "ProductID"
  379.       EndProperty
  380.       BeginProperty Field2 
  381.          Precision       =   255
  382.          Size            =   40
  383.          Scale           =   255
  384.          Type            =   200
  385.          Name            =   "ProductName"
  386.          Caption         =   "ProductName"
  387.       EndProperty
  388.       BeginProperty Field3 
  389.          Precision       =   10
  390.          Size            =   4
  391.          Scale           =   255
  392.          Type            =   3
  393.          Name            =   "SupplierID"
  394.          Caption         =   "SupplierID"
  395.       EndProperty
  396.       BeginProperty Field4 
  397.          Precision       =   10
  398.          Size            =   4
  399.          Scale           =   255
  400.          Type            =   3
  401.          Name            =   "CategoryID"
  402.          Caption         =   "CategoryID"
  403.       EndProperty
  404.       BeginProperty Field5 
  405.          Precision       =   255
  406.          Size            =   20
  407.          Scale           =   255
  408.          Type            =   200
  409.          Name            =   "QuantityPerUnit"
  410.          Caption         =   "QuantityPerUnit"
  411.       EndProperty
  412.       BeginProperty Field6 
  413.          Precision       =   19
  414.          Size            =   8
  415.          Scale           =   255
  416.          Type            =   6
  417.          Name            =   "UnitPrice"
  418.          Caption         =   "UnitPrice"
  419.       EndProperty
  420.       BeginProperty Field7 
  421.          Precision       =   5
  422.          Size            =   2
  423.          Scale           =   255
  424.          Type            =   2
  425.          Name            =   "UnitsInStock"
  426.          Caption         =   "UnitsInStock"
  427.       EndProperty
  428.       BeginProperty Field8 
  429.          Precision       =   5
  430.          Size            =   2
  431.          Scale           =   255
  432.          Type            =   2
  433.          Name            =   "UnitsOnOrder"
  434.          Caption         =   "UnitsOnOrder"
  435.       EndProperty
  436.       BeginProperty Field9 
  437.          Precision       =   5
  438.          Size            =   2
  439.          Scale           =   255
  440.          Type            =   2
  441.          Name            =   "ReorderLevel"
  442.          Caption         =   "ReorderLevel"
  443.       EndProperty
  444.       BeginProperty Field10 
  445.          Precision       =   255
  446.          Size            =   2
  447.          Scale           =   255
  448.          Type            =   11
  449.          Name            =   "Discontinued"
  450.          Caption         =   "Discontinued"
  451.       EndProperty
  452.       NumGroups       =   0
  453.       ParamCount      =   0
  454.       CommandParent   =   "OrderDetails"
  455.       RelationCount   =   1
  456.       BeginProperty Relation1 
  457.          ParentField     =   "ProductID"
  458.          ChildField      =   "ProductID"
  459.          ParentType      =   0
  460.          ChildType       =   0
  461.       EndProperty
  462.       AggregateCount  =   0
  463.    EndProperty
  464. End
  465. Attribute VB_Name = "deNwind"
  466. Attribute VB_GlobalNameSpace = False
  467. Attribute VB_Creatable = False
  468. Attribute VB_PredeclaredId = True
  469. Attribute VB_Exposed = False
  470. Option Explicit
  471.  
  472.